home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib08.dsk / PROTECT PROGRAMS.bas < prev    next >
BASIC Source File  |  2023-02-26  |  846b  |  20 lines
  1. 1  REM  ***************************
  2. 2  REM  *   PROTECT PROGRAMS      *
  3. 3  REM  *  BY KEITH STATTENFIELD  *
  4. 4  REM  *  COPYRIGHT (C) 1982     *
  5. 5  REM  *  BY MICRO-SPARC INC     *
  6. 6  REM  *  LINCOLN, MA. 01773     *
  7. 7  REM  ***************************
  8. 100  ONERR  GOTO 210
  9. 110  TEXT : HOME : POKE 48,170
  10. 120  HLIN 0,39 AT 0: HLIN 0,39 AT 46: VLIN 0,46 AT 0: VLIN 0,46 AT 39
  11. 130  POKE 32,2: POKE 33,36: POKE 34,2: POKE 35,22: HOME 
  12. 140 A$ = "PROGRAM PROTECTOR": GOSUB 220
  13. 150  PRINT :A$ = "BY KEITH STATTENFIELD": GOSUB 220
  14. 160 S = 2496:E = 5120
  15. 170  VTAB 12: PRINT "PLEASE ENTER A NUMBER BETWEEN ";S: PRINT "AND ";E;: INPUT ": ";A$:N =  VAL(A$)
  16. 180  IF N <S  OR N >E  THEN 170
  17. 190  POKE 103,N - INT(N/256) *256: POKE 104,N/256: POKE N -1,0
  18. 200  PRINT  CHR$(4);"RUN PROGRAM PROTECTOR"
  19. 210  END 
  20. 220  HTAB  PEEK(33)/2 - LEN(A$)/2: PRINT A$: RETURN